BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Higher Ed / G-M / MacPhaseExtras.sit / MacPhase Extras / Macros / PrintMosaic.m < prev next >
MacBinary | 1994-04-21 | 2.3 KB | [TEXT/DAHN]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Ultima 6 `(music/ultima6)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Amiga E Module `(other/amigaEModule)`	ext	Unsupported
`1%`	dexvert	ECX module `(other/ecxModule)`	ext	Unsupported
`1%`	dexvert	Maple Common Binary `(other/mapleCommonBinary)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Thu Apr 21 22:37:35 1994, modified Thu Apr 21 22:37:35 1994, creator 'DAHN', type ASCII, 1364 bytes "PrintMosaic.m" , at 0x5d4 670 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[DAHN]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 50 72 69 6e 74 4d | 6f 73 61 69 63 2e 6d 00 |..PrintM|osaic.m.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 44 41 48 | 4e 01 00 00 00 00 00 00 |.TEXTDAH|N.......|
|00000050| 00 00 00 00 00 05 54 00 | 00 02 9e a9 dc e8 ef a9 |......T.|........|
|00000060| dc e8 ef 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cd ff 00 00 |........|........|
|00000080| 6d 61 63 72 6f 20 50 72 | 69 6e 74 4d 6f 73 61 69 |macro Pr|intMosai|
|00000090| 63 3b 0d 7b 20 20 50 72 | 69 6e 74 73 20 61 20 6d |c;.{  Pr|ints a m|
|000000a0| 6f 73 61 69 63 20 6f 66 | 20 61 6c 6c 20 74 68 65 |osaic of| all the|
|000000b0| 20 6f 70 65 6e 20 64 61 | 74 61 20 77 69 6e 64 6f | open da|ta windo|
|000000c0| 77 73 2e 20 20 54 68 69 | 73 20 6d 61 63 72 6f 20 |ws.  Thi|s macro |
|000000d0| 61 73 73 75 6d 65 73 20 | 74 68 61 74 20 61 6c 6c |assumes |that all|
|000000e0| 20 7d 0d 7b 09 74 68 65 | 73 65 20 77 69 6e 64 6f | }.{.the|se windo|
|000000f0| 77 73 20 61 72 65 20 32 | 44 20 61 6e 64 20 61 72 |ws are 2|D and ar|
|00000100| 65 20 31 32 38 78 31 32 | 38 20 7d 0d 76 61 72 20 |e 128x12|8 }.var |
|00000110| 0d 09 73 74 72 32 35 35 | 20 3a 20 64 61 74 61 4e |..str255| : dataN|
|00000120| 61 6d 65 3b 0d 09 69 6e | 74 65 67 65 72 20 3a 20 |ame;..in|teger : |
|00000130| 78 2c 79 2c 70 6c 6f 74 | 59 2c 74 6f 70 2c 6c 65 |x,y,plot|Y,top,le|
|00000140| 66 74 2c 72 69 67 68 74 | 2c 62 6f 74 74 6f 6d 2c |ft,right|,bottom,|
|00000150| 73 69 7a 65 58 2c 73 69 | 7a 65 59 3b 0d 09 62 6f |sizeX,si|zeY;..bo|
|00000160| 6f 6c 65 61 6e 20 3a 20 | 64 6f 6e 65 2c 73 68 69 |olean : |done,shi|
|00000170| 66 74 52 69 67 68 74 2c | 6e 65 77 50 61 67 65 2c |ftRight,|newPage,|
|00000180| 6f 6b 3b 0d 62 65 67 69 | 6e 0d 09 44 69 73 70 6f |ok;.begi|n..Dispo|
|00000190| 73 65 55 6e 63 6c 6f 73 | 65 3b 0d 09 64 6f 6e 65 |seUnclos|e;..done|
|000001a0| 3a 3d 46 72 6f 6e 74 44 | 61 74 61 28 64 61 74 61 |:=FrontD|ata(data|
|000001b0| 4e 61 6d 65 2c 27 64 61 | 74 61 27 29 3b 0d 09 69 |Name,'da|ta');..i|
|000001c0| 66 28 21 64 6f 6e 65 29 | 20 74 68 65 6e 0d 09 09 |f(!done)| then...|
|000001d0| 53 68 6f 77 45 72 72 6f | 72 28 27 45 72 72 6f 72 |ShowErro|r('Error|
|000001e0| 27 2c 27 54 68 65 72 65 | 20 61 72 65 20 6e 6f 20 |','There| are no |
|000001f0| 64 61 74 61 20 77 69 6e | 64 6f 77 73 20 61 63 74 |data win|dows act|
|00000200| 69 76 65 27 29 3b 0d 09 | 09 65 78 69 74 3b 0d 09 |ive');..|.exit;..|
|00000210| 65 6e 64 69 66 3b 0d 09 | 6f 6b 3a 3d 53 68 6f 77 |endif;..|ok:=Show|
|00000220| 4d 65 73 73 61 67 65 28 | 27 27 2c 27 41 6c 6c 20 |Message(|'','All |
|00000230| 74 68 65 20 64 61 74 61 | 20 77 69 6e 64 6f 77 20 |the data| window |
|00000240| 73 69 7a 65 73 20 6d 75 | 73 74 20 62 65 20 65 71 |sizes mu|st be eq|
|00000250| 75 61 6c 20 74 6f 20 6f | 72 20 6c 65 73 73 20 74 |ual to o|r less t|
|00000260| 68 61 6e 20 31 32 38 78 | 31 32 38 2e 20 20 41 72 |han 128x|128.  Ar|
|00000270| 65 20 74 68 65 79 3f 27 | 29 3b 0d 09 69 66 28 21 |e they?'|);..if(!|
|00000280| 6f 6b 29 0d 09 09 65 78 | 69 74 3b 0d 09 65 6e 64 |ok)...ex|it;..end|
|00000290| 69 66 3b 0d 09 73 69 7a | 65 58 3a 3d 31 32 38 3b |if;..siz|eX:=128;|
|000002a0| 20 7b 20 63 68 61 6e 67 | 65 20 74 68 65 73 65 20 | { chang|e these |
|000002b0| 74 6f 20 79 6f 75 72 20 | 64 61 74 61 27 73 20 77 |to your |data's w|
|000002c0| 69 6e 64 6f 77 20 73 69 | 7a 65 20 7d 0d 09 73 69 |indow si|ze }..si|
|000002d0| 7a 65 59 3a 3d 31 32 38 | 3b 0d 09 6f 6b 3a 3d 50 |zeY:=128|;..ok:=P|
|000002e0| 72 4f 70 65 6e 28 54 52 | 55 45 29 3b 0d 09 69 66 |rOpen(TR|UE);..if|
|000002f0| 28 21 6f 6b 29 0d 09 09 | 65 78 69 74 3b 0d 09 65 |(!ok)...|exit;..e|
|00000300| 6e 64 69 66 3b 0d 09 54 | 65 78 74 46 6f 6e 74 28 |ndif;..T|extFont(|
|00000310| 27 48 65 6c 76 65 74 69 | 63 61 27 29 3b 0d 09 54 |'Helveti|ca');..T|
|00000320| 65 78 74 53 69 7a 65 28 | 39 29 3b 0d 09 54 65 78 |extSize(|9);..Tex|
|00000330| 74 46 61 63 65 28 27 27 | 29 3b 0d 09 50 72 47 65 |tFace(''|);..PrGe|
|00000340| 74 50 61 67 65 28 6c 65 | 66 74 2c 74 6f 70 2c 72 |tPage(le|ft,top,r|
|00000350| 69 67 68 74 2c 62 6f 74 | 74 6f 6d 29 3b 0d 09 64 |ight,bot|tom);..d|
|00000360| 6f 6e 65 3a 3d 43 6d 70 | 53 74 72 28 64 61 74 61 |one:=Cmp|Str(data|
|00000370| 4e 61 6d 65 2c 3d 2c 27 | 27 29 3b 0d 09 78 3a 3d |Name,=,'|');..x:=|
|00000380| 6c 65 66 74 3b 0d 09 79 | 3a 3d 74 6f 70 3b 0d 09 |left;..y|:=top;..|
|00000390| 69 66 28 21 64 6f 6e 65 | 29 20 74 68 65 6e 0d 09 |if(!done|) then..|
|000003a0| 09 72 65 70 65 61 74 0d | 09 09 09 50 72 50 6c 6f |.repeat.|...PrPlo|
|000003b0| 74 44 61 74 61 28 64 61 | 74 61 4e 61 6d 65 2c 78 |tData(da|taName,x|
|000003c0| 2c 79 29 3b 0d 09 09 09 | 79 3a 3d 45 76 61 6c 4e |,y);....|y:=EvalN|
|000003d0| 75 6d 62 65 72 28 79 2c | 2b 2c 73 69 7a 65 59 2c |umber(y,|+,sizeY,|
|000003e0| 2b 2c 31 30 29 3b 0d 09 | 09 09 4d 6f 76 65 54 6f |+,10);..|..MoveTo|
|000003f0| 28 78 2c 79 29 3b 0d 09 | 09 09 44 72 61 77 53 74 |(x,y);..|..DrawSt|
|00000400| 72 69 6e 67 28 64 61 74 | 61 4e 61 6d 65 29 3b 0d |ring(dat|aName);.|
|00000410| 09 09 09 79 3a 3d 45 76 | 61 6c 4e 75 6d 62 65 72 |...y:=Ev|alNumber|
|00000420| 28 79 2c 2b 2c 31 30 29 | 3b 0d 09 09 09 70 6c 6f |(y,+,10)|;....plo|
|00000430| 74 59 3a 3d 45 76 61 6c | 4e 75 6d 62 65 72 28 79 |tY:=Eval|Number(y|
|00000440| 2c 2b 2c 73 69 7a 65 59 | 2c 2b 2c 31 30 29 3b 0d |,+,sizeY|,+,10);.|
|00000450| 09 09 09 73 68 69 66 74 | 52 69 67 68 74 3a 3d 43 |...shift|Right:=C|
|00000460| 6d 70 28 70 6c 6f 74 59 | 2c 3e 2c 62 6f 74 74 6f |mp(plotY|,>,botto|
|00000470| 6d 29 3b 0d 09 09 09 69 | 66 28 73 68 69 66 74 52 |m);....i|f(shiftR|
|00000480| 69 67 68 74 29 20 74 68 | 65 6e 0d 09 09 09 09 79 |ight) th|en.....y|
|00000490| 3a 3d 74 6f 70 3b 0d 09 | 09 09 09 78 3a 3d 45 76 |:=top;..|...x:=Ev|
|000004a0| 61 6c 4e 75 6d 62 65 72 | 28 78 2c 2b 2c 73 69 7a |alNumber|(x,+,siz|
|000004b0| 65 58 2c 2b 2c 32 30 29 | 3b 0d 09 09 09 09 6e 65 |eX,+,20)|;.....ne|
|000004c0| 77 50 61 67 65 3a 3d 43 | 6d 70 28 78 2c 3e 2c 72 |wPage:=C|mp(x,>,r|
|000004d0| 69 67 68 74 29 3b 0d 09 | 09 09 65 6e 64 69 66 3b |ight);..|..endif;|
|000004e0| 0d 09 09 09 64 61 74 61 | 4e 61 6d 65 3a 3d 4e 65 |....data|Name:=Ne|
|000004f0| 78 74 44 61 74 61 28 64 | 61 74 61 4e 61 6d 65 2c |xtData(d|ataName,|
|00000500| 27 64 61 74 61 27 29 3b | 0d 09 09 09 64 6f 6e 65 |'data');|....done|
|00000510| 3a 3d 43 6d 70 53 74 72 | 28 64 61 74 61 4e 61 6d |:=CmpStr|(dataNam|
|00000520| 65 2c 3d 2c 27 27 29 3b | 0d 09 09 09 69 66 28 6e |e,=,'');|....if(n|
|00000530| 65 77 50 61 67 65 2c 26 | 2c 21 64 6f 6e 65 29 0d |ewPage,&|,!done).|
|00000540| 09 09 09 09 50 72 4e 65 | 77 50 61 67 65 3b 0d 09 |....PrNe|wPage;..|
|00000550| 09 09 09 6e 65 77 50 61 | 67 65 3a 3d 46 41 4c 53 |...newPa|ge:=FALS|
|00000560| 45 3b 0d 09 09 09 09 78 | 3a 3d 6c 65 66 74 3b 0d |E;.....x|:=left;.|
|00000570| 09 09 09 09 79 3a 3d 74 | 6f 70 3b 0d 09 09 09 65 |....y:=t|op;....e|
|00000580| 6e 64 69 66 3b 0d 09 09 | 75 6e 74 69 6c 28 64 6f |ndif;...|until(do|
|00000590| 6e 65 29 3b 0d 09 65 6c | 73 65 69 66 0d 09 09 53 |ne);..el|seif...S|
|000005a0| 68 6f 77 49 6e 66 6f 28 | 27 27 2c 27 6e 6f 74 68 |howInfo(|'','noth|
|000005b0| 69 6e 67 27 2c 27 27 2c | 27 27 29 3b 0d 09 65 6e |ing','',|'');..en|
|000005c0| 64 69 66 3b 0d 09 50 72 | 43 6c 6f 73 65 3b 0d 65 |dif;..Pr|Close;.e|
|000005d0| 6e 64 3b 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |nd;.....|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 02 6c | 00 00 01 6c 00 00 00 32 |.......l|...l...2|
|00000610| 4d 4f 4f 54 ff ff a9 36 | 39 97 00 00 01 15 08 54 |MOOT...6|9......T|
|00000620| 45 53 61 6d 70 6c 65 6e | 74 20 43 6f 6e 73 74 72 |ESamplen|t Constr|
|00000630| 0d 50 72 69 6e 74 4d 6f | 73 61 69 63 2e 6d 02 00 |.PrintMo|saic.m..|
|00000640| 00 00 54 45 58 54 44 41 | 48 4e 01 00 00 8c 00 60 |..TEXTDA|HN.....`|
|00000650| 00 00 54 45 58 54 44 41 | 48 4e 01 00 00 8c 00 60 |..TEXTDA|HN.....`|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 a9 db 0d bc 00 00 | 05 54 00 00 02 9e 13 4d |........|.T.....M|
|00000680| 57 20 50 61 73 63 61 6c | 20 36 38 4b 20 20 31 2e |W Pascal| 68K  1.|
|00000690| 30 62 74 6f 72 00 00 00 | 00 00 00 00 00 00 07 02 |0btor...|........|
|000006a0| 68 6d 61 6e ff ff a8 c8 | 91 c0 00 00 05 20 17 4d |hman....|..... .M|
|000006b0| 61 63 69 6e 74 6f 73 68 | 20 44 72 61 67 20 61 6e |acintosh| Drag an|
|000006c0| 64 20 44 72 6f 70 00 00 | 00 00 00 00 00 00 07 02 |d Drop..|........|
|000006d0| 70 72 6f 46 ff ff a9 97 | df c3 00 00 05 17 14 43 |proF....|.......C|
|000006e0| 6f 64 65 57 61 72 72 69 | 6f 72 20 50 72 6f 66 69 |odeWarri|or Profi|
|000006f0| 6c 65 72 6f 72 00 00 00 | 00 00 00 00 00 00 07 02 |leror...|........|
|00000700| 00 00 01 68 00 00 00 00 | 00 00 00 28 00 1e 02 44 |...h....|...(...D|
|00000710| 01 ac 00 06 00 00 02 85 | 00 00 02 85 00 00 00 00 |........|........|
|00000720| 00 03 00 09 00 00 06 47 | 65 6e 65 76 61 00 00 00 |.......G|eneva...|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 04 00 | 00 05 00 00 00 48 00 48 |........|.....H.H|
|00000770| 00 00 00 00 02 db 02 40 | ff e7 ff ee 02 ff 02 52 |.......@|.......R|
|00000780| 1f 03 05 28 03 fc 00 01 | 00 00 01 2c 01 2c 00 00 |...(....|...,.,..|
|00000790| 00 00 0b e7 09 60 01 2c | 00 2d 05 a0 5e ec 00 26 |.....`.,|.-..^..&|
|000007a0| 04 01 01 01 00 18 00 01 | 27 0f 00 01 00 01 00 00 |........|'.......|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 64 00 00 |........|.....d..|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 01 00 01 02 00 00 00 00 |........|........|
|000007e0| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 08 00 00 |.......M|onaco...|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 04 | 01 00 00 01 00 00 00 00 |........|........|
|00000830| 00 01 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 01 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000870| 00 00 02 6c 00 00 01 6c | 00 00 00 32 00 55 22 68 |...l...l|...2.U"h|
|00000880| 0a 4a 00 00 00 1c 00 32 | 00 00 42 42 53 52 00 00 |.J.....2|..BBSR..|
|00000890| 00 0a 02 50 ff ff 00 00 | 00 00 00 55 20 f0 00 00 |...P....|...U ...|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+